home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
tm-instruct 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
16KB
|
87 lines
105 POKE53280,BD:POKE53281,0:IFPEEK(53272)<>23THENPOKE53272,23
110 GOSUB9010
120 IFSF$="M"THENGOSUB8010
130 IFSF$="S"THENGOSUB7010
140 IFSF$="L"THENGOSUB6010
150 IFSF$="W"THENGOSUB1010
160 IFSF$="P"THENGOSUB5010
170 IFSF$="E"THENGOSUB8510
180 IFSF$="N"THENGOSUB4010
190 GOTO120
1010 SF$="M":IFN$<>""THEN1030
1011 PRINT"[147][212]EXTMASTER":PRINT"[198]ILE HAS NO NAME.":PRINT"[208]LEASE PRESS THE [198]1 [203][197][217]
1012 [161]G$:[139]G$[179][177]"INPUT"[167]1012
1013 [153]"LOAD(null)LEASE ACCESS EITHER (null)(null)ATNSTR$ OR (null)ATN(null)VAL":[142]
1030 [153]E$"SYS(null)(null)RIGHT$(null)VALWAIT "[202](N$,4,20)[163]29)"(null)INE":[141]10000:[158]4847:[158]5503:[142]
2010 [151]53272,23:[153]"LOADSYS(null)VAL(null)(null)(null)ATN(null)(null)VAL(null)"
2011 [153]"(null)RESS ASC7 TO CHANGE BORDER COLOR. (null)RESS RETURN WHEN SATISFIED."
2012 [161]Z$:[139]Z$[179][177]"LET"[175]Z$[179][177][199](13)[167]2012
2013 [139]Z$[178][199](13)[167]:[158]5613:N$[178]"":[137]2020
2014 BD[178]BD[170]1:[139]BD[179]16[167]:[151]53280,BD:[137]2012
2015 BD[178]0:[151]53280,BD:[137]2012
2020 [158]4847:[142]
3010 [159]1,8,15,"I0":[160]1:[159]1,8,2,"$0":[158]6347:[160]1:SL[178]176:FL[178]SL[170]1:L[178]0:N[178]0:[158]4847
3070 [129]X[178]1184[164]2023:L[178]L[170]1:[139][194](X)[178]32[167]3090
3080 L[178]0:N[178]N[170]1:[151]X[171]3,FL:[151]X[171]2,SL:SL[178]SL[170]1:X[178]X[170]17:[139]SL[178]186[167]FL[178]FL[170]1:SL[178]176
3090 [139]L[179]40[167][130]
3100 [142]
4010 [153]"LOAD":[141]10000:SF$[178]"W":[153]E$"(null)ATN(null)VALWAIT ";:[139]N$[178]""[167][153]"ASCILE HAS NO NAME":[137]4110
4020 [153]""[202](N$,4):[153]"LENHANGE NAME? (null)VAL(null)(null)(null)(null)CLOSEOR ASC1 (null)VAL(null)
4030 GETG$:IFG$=""THEN4030
4040 IFG$="[133]"THENRETURN
4050 IFG$<>CHR$(13)THEN4030
4110 PRINT"[193]SSIGN NAME.... [210][197][212][213][210][206]":OPEN1,0:INPUT#1,N$:CLOSE1:IFN$=""THEN4110
4112 SYS4847
4115 FORX=1TOLEN(N$):C=ASC(MID$(N$,X,9))
4116 IF(C<91ANDC>47)OR(C>192ANDC<219)ORC=32THENNEXT:GOTO4118
4117 PRINT"[201]NVALID NAME":GOTO4110
4118 IFLEFT$(N$,3)<>"TM-"THENN$="TM-"+N$
4119 RETURN
5010 SF$="W":PRINTE$"[208][210][201][206][212][146] [208]RINTER READY? [210][197][212][213][210][206] OR [198]1 [203][197][217]"
5052 GETGE$:IFGE$=CHR$(133)THENRETURN
5054 IFGE$<>CHR$(13)THEN5052
5063 OPEN3,4:SYS5100:CLOSE3:RETURN
6010 SF$="M":PRINTE$"[147][204][207][193][196]":GOSUB10000:GOSUB3010:SYS4847
6020 PRINT"[212]O RETURN TO [205][197][206][213] PRESS [198]1 THEN [210][197][212][213][210][206]
6023 [159]1,0:[132]1,IN$:[160]1:IN[178][197](IN$):[139]IN[178]0[167][153]"LOAD":[142]
6030 [139]IN[179]10[176]IN[177]N[170]9[167]ME$[178]"(null)(null)CLOSE(null)(null)LENLEFT$CLOSEASCRIGHT$(null)VAL":[137]6300
6040 [153]""[166]20):[129]X[178]1[164]IN[171]9:[153][166]20);:[130]:[159]3,3:[132]3,N$:[160]3
6042 [129]X[178]16[164]1[169][171]1:[139][202](N$,X,1)[178]" "[167][130]
6043 N$[178][200](N$,X):[139][200](N$,3)[179][177]"TM-"[167]6290
6050 [141]9070:[151]4846,1:[158]5613:[153]E$"(null)(null)(null) (null)(null)ATNSTR$RIGHT$(null)CHR$WAIT "[202](N$,4):SF$[178]"W"
6060 [159]1,8,15,"I0":[160]1:[147]N$,8,3:[158]4847
6290 ME$[178]"(null)(null)(null)CLOSEATNCLOSE(null)VAL(null)(null)CLOSEASCRIGHT$(null)VAL"
6300 [153]:[153]""ME$:[129]X[178]1[164]1000:[130]:[153]"ON ":[137]6020
7010 [139]N$[178]""[167][141]4010
7015 [153]E$"(null)ATN(null)VALWAIT DISK IN STR$0? (null)VAL(null)(null)(null)(null) OR ASC1 (null)VAL(null)
7020 GETGE$:IFGE$=CHR$(13)THENGOSUB9070:GOTO7100
7030 IFGE$=CHR$(133)THENSF$="M":RETURN
7040 GOTO7020
7100 F$="0:"+N$:S$="S"+F$:PRINTE$"[211]AVING[146] "MID$(N$,4):OPEN1,8,15,"I0":PRINT#1,S$:CLOSE1
7160 IFPEEK(145)=228THENSYS(62589)F$,8
7165 IFPEEK(789)=234THENSYS(57812)F$,8
7170 SYS5539:SYS5088
7205 IFST<>0THENPRINT"[196][201][211][203] [197][210][210][207][210]"DS$:END
7300 GOSUB9070:PRINT"[147]":SF$="W":SYS4847:RETURN
8010 PRINTE$"[158][205][197][206][213][146]: [215][146]RITE [204][146]OAD [211][146]AVE [208][146]RINT [197][146]RASE [206][146]AME":GOSUB10000
8070 GETG$:IFG$="W"ORG$="L"ORG$="S"ORG$="P"ORG$="N"ORG$="E"THENSF$=G$:RETURN
8080 GOTO8070
8510 SF$="W":PRINTE$"[197][210][193][211][197][146] [193][146]LL, [210][146]EMAINDER OR [198]1 [203][197][217]
8520 [161]G$:[139]G$[178]""[167]8520
8540 [139]G$[178]"R"[167]8600
8550 [139]G$[178]"A"[167][151]4846,0:[138]
8560 [139]G$[178][199](133)[167][142]
8570 [137]8520
8600 [158]6511:[142]
9010 [153]"LOAD"
9070 [151]828,0:[151]829,32
9100 [151]830,0:[151]831,32
9130 [151]832,80:[151]833,4
9160 [151]834,96:[151]835,71
9190 [151]836,0:[151]837,32
9220 [151]838,1:[151]840,1:E$[178]" "
9315 [158]6476:[158]4847:[139]SF$[178]""[167]SF$[178]"W"
9400 [151]839,1:[139][194](4846)[178]0[167][141]2010:[151]4846,1:[151]51,0:[151]52,32
9999 [142]
10000 [153]"SYSTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[142]